﻿Class MainWindow
    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
        Console.WriteLine(Application.Current.Resources.Count)
        'Dim uri As New Uri("")
        Dim frm As New fb程序集资源.MainWindow

        frm.Show()
    End Sub

    Private Sub Button_Click_1(sender As Object, e As RoutedEventArgs)
        Dim path As String = AppDomain.CurrentDomain.BaseDirectory
        Dim spath As String = "..\..\..\程序集资源\bin\Debug\程序集资源.exe"
        Dim f As String = IO.Path.Combine(path, spath)

        f = IO.Path.GetFullPath(f)
        If IO.File.Exists(f) Then
            Process.Start(f)
        Else
            MsgBox($"找不到程序{f}")
        End If
    End Sub

    Private Sub Button_Click_2(sender As Object, e As RoutedEventArgs)

    End Sub
End Class
